<script>on mousedownvisual zoom out fastput word 2 of the clickLine into ZoneNumgo card ZoneNum of bkgnd "ZoneInformation"end mouseDown</script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>94</left>
<top>32</top>
<right>135</right>
<bottom>50</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>NumberZones</name>
<script>on mousedownput the number of lines in fld "zone list" into meend mousedown</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>264</left>
<top>52</top>
<right>493</right>
<bottom>340</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>10</textHeight>
<name>Areas</name>
<script>on mousedownvisual zoom out fastput word 2 of the clickLine into ZoneNumgo card ZoneNum of bkgnd "Summaries"end mouseDown</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>393</left>
<top>31</top>
<right>488</right>
<bottom>51</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Update Areas</name>
<script>on mouseUpbeep 2answer "This will clear all data and may take a while?" ¬with "Cancel" or "OK"if it = "Cancel" thenexit mouseUpend iflock screenset cursor to busyput the number of cards of bkgnd "Summaries" into numZoneCardsput (the number of lines in fld "Areas") into numZonesif numZones > numZoneCards thengo last card of bkgnd "Summaries"repeat for (numZones - numZoneCards)set cursor to busydoMenu "New Card"end repeatend ifif numZones < numZoneCards thengo first card of bkgnd "Summaries"repeat for (numZoneCards - numZones)set cursor to busydomenu "Delete Card"end repeatend ifrepeat with i = 1 to (numZones)set cursor to busygo card i of bkgnd "Summaries"put (item 1 of line i of fld "Areas" of Card "Zone List") into fld "SumTitle"put (item 2 of line i of fld "Areas" of Card "Zone List") into fld "zoneIdent"end repeatgo card "Zone List"unlock screenset cursor to normalend mouseUp</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>140</left>
<top>30</top>
<right>235</right>
<bottom>50</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Update Zones</name>
<script>on mouseUpbeep 2answer "This will clear all data and may take a while?" ¬with "Cancel" or "OK"if it = "Cancel" thenexit mouseUpend iflock screen-- put them into the cardsput the number of cards of bkgnd "ZoneInformation" into numZoneCardsput (the number of lines in fld "Zone List") into numZonesif numZones > numZoneCards thengo last card of bkgnd "ZoneInformation"repeat for (numZones - numZoneCards)set cursor to busydoMenu "New Card"end repeatend ifif numZones < numZoneCards thengo first card of bkgnd "ZoneInformation"repeat for (numZoneCards - numZones)set cursor to busydomenu "Delete Card"end repeatend ifrepeat with i = 1 to (numZones)set cursor to busygo card i of bkgnd "ZoneInformation"put (line i of fld "Zone List" of Card "Zone List") into fld "zoneList"end repeatgo card "Zone List"put numZones into fld "numberZones"unlock screenset cursor to normalend mouseUp</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>485</left>
<top>3</top>
<right>509</right>
<bottom>22</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>16560</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpvisual scroll left fastgo to first card of bkgnd "ZoneInformation"end mouseUp</script>
</part>
<part>
<id>10</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>16</left>
<top>343</top>
<right>494</right>
<bottom>432</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>9</textHeight>
<name>tempBuffer</name>
<script></script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>3</left>
<top>3</top>
<right>27</right>
<bottom>22</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>15420</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpvisual scroll right fastgo previousend mouseUp</script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>17</left>
<top>30</top>
<right>93</right>
<bottom>50</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Zone List:</name>
<script>on mouseUplock screenset cursor to busy-- get the actual zonesput empty into fld "Zone List"put ATalkZones() into fld "tempBuffer"delete line 1 of fld "tempBuffer"sort items of fld tempBufferrepeat with i = 1 to the number of items in fld "tempBuffer"set cursor to busyput item i of fld "tempBuffer" after fld "Zone List"put return after fld "Zone List"end repeatdelete last char of fld "Zone List"put the number of lines in fld "Zone List" into fld "NumberZones"unlock screenend mouseUp</script>
